#      MODULO DE INSERCION DE SUBPROGRAMAS INCLUIDOS POR DEFAULT EN PASCAL      #
#Le damos acceso a la unidad de creacion de clases
import Pascal_TS as clases              #Unidad creada por nosotros con las clases que usara la TS

#Definimos las funciones permitidas por defaul en pascal
def Writeln(p):
    writeln = clases.C_ambito("writeln",p.parser.actual,"procedure")
    writeln.insertar_parametro(clases.C_elemento("str","param","string",None,None))
    p.parser.actual.elementos["writeln"] = writeln

def Readln(p):
    readln = clases.C_ambito("readln",p.parser.actual,"procedure")
    readln.insertar_parametro(clases.C_elemento("str","param","string",None,None))
    p.parser.actual.elementos["readln"] = readln

#Generamos la funcion que las cargara todas en el parser...
def Subprogram_Loader(p):
    Writeln(p)
    Readln(p)